home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / popupmen.sit / PopUpMenu 2.0b2 / background_3155.txt < prev    next >
Text File  |  1989-09-13  |  3KB  |  124 lines
  1. -- background: 3155 from stack: in.0b2
  2. -- bmap block id: 5453
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -----------------------------------------------------------------------
  8. -- openCard
  9. -----------------------------------------------------------------------
  10. on opencard
  11.   if the number of this card is one then
  12.     hide background button "previous"
  13.     show background button "next"
  14.   else if the number of this card is 8 then
  15.     show background button "previous"
  16.     hide background button "next"
  17.   else
  18.     show background button "previous"
  19.     show background button "next"
  20.   end if
  21. end opencard
  22.  
  23.  
  24. -----------------------------------------------------------------------
  25. -- arrowKey which
  26. -----------------------------------------------------------------------
  27. on arrowKey which
  28.   if (which is "left") and (the number of this card is one) then
  29.     exit arrowKey
  30.   else if (which is "right") and (the number of this card is 8) then
  31.     exit arrowKey
  32.   else
  33.     pass arrowKey
  34.   end if
  35. end arrowkey
  36.  
  37.  
  38. -----------------------------------------------------------------------
  39. -- doMenu which
  40. -----------------------------------------------------------------------
  41. on doMenu which
  42.   if (which is "Prev") and (the number of this card is one) then
  43.     exit doMenu
  44.   else if (which is "Next") and (the number of this card is 8) then
  45.     exit doMenu
  46.   else
  47.     pass doMenu
  48.   end if
  49. end doMenu
  50.  
  51.  
  52.  
  53. -- part 4 (button)
  54. -- low flags: 00
  55. -- high flags: 2000
  56. -- rect: left=462 top=296 right=335 bottom=501
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 26425 / 26425
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: next
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   go to next card
  68. end mouseUp
  69.  
  70.  
  71.  
  72.  
  73. -- part 10 (field)
  74. -- low flags: 01
  75. -- high flags: 2000
  76. -- rect: left=14 top=47 right=327 bottom=387
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 12
  82. -- style flags: 8192
  83. -- line height: 16
  84. -- part name: 
  85.  
  86.  
  87. -- part 9 (button)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=424 top=296 right=335 bottom=463
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 902 / 902
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: previous
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   go to previous card
  102. end mouseUp
  103.  
  104.  
  105.  
  106.  
  107. -- part 11 (button)
  108. -- low flags: 00
  109. -- high flags: 2000
  110. -- rect: left=463 top=47 right=86 bottom=502
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 1011 / 1011
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Home
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   go home
  122. end mouseUp
  123.  
  124.